home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 July / 64er_Magazin_87-07_1987_Markt__Technik_de.d64 / an 64'er (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  12KB  |  16 lines
  1. 591 goto595
  2. 592 :
  3. 593 : was made with message-maker           : written 1987 by reiner stein   !
  4. 594 :
  5. 595 ifa<>2thena=1
  6. 596 ifa=1thena=2:load"hunter*axelxxxxx",8,1
  7. 597 ifa=2thensys49152
  8. 598 poke53272,(peek(53272)and240)or12
  9. 600 s=02505:poke53281,0:poke53280,0:print"[147]";chr$(142):gosub630
  10. 610 ifpeek(s)=0thensys64738
  11. 612 a=peek(s):ifa=13ora=17ora=29ora=141ora=145ora=157ora=148thenpoke1024+b,z
  12. 615 printchr$(a);
  13. 616 a=peek(214)*40+peek(211):z=peek(1024+a):pokea+1024,42:b=a
  14. 620 s=s+1:goto610
  15. 630 a=peek(214)*40+peek(211):z=peek(1024+a):pokea+1024,42:b=a:return
  16.